home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_pas / ootp_4 / list6_2.pas < prev    next >
Pascal/Delphi Source File  |  1990-03-28  |  836b  |  47 lines
  1. program Listing6_2;
  2.  
  3. uses ListObj;
  4.  
  5. type
  6.  
  7. ClassA = object(Node)
  8.          Number1 : integer;
  9.          Number2 : integer;
  10.          Number3 : integer;
  11.          procedure Init( N1, N2, N3 : integer );
  12.          end;
  13.  
  14. ClassB = object(Node)
  15.          Real1 : real;
  16.          procedure Init( R1 : real );
  17.          end;
  18.  
  19. procedure ClassA.Init( N1, N2, N3 : integer );
  20. begin
  21.      Node.Init( SizeOf( Self ) );
  22.      Number1 := N1;
  23.      Number2 := N2;
  24.      Number3 := N3;
  25. end;
  26.  
  27. procedure ClassB.Init( R1 : real );
  28. begin
  29.      Node.Init( SizeOf ( Self ));
  30.      Real1 := R1;
  31. end;
  32.  
  33. var
  34.    ObjectA : ClassA;
  35.    ObjectB : ClassB;
  36.    MixList : List;
  37. begin
  38.      MixList.Init;
  39.      ObjectA.Init( 1,2,3 );
  40.      ObjectB.Init( 3.1415 );
  41.      ObjectA.AppendToList( MixList );
  42.      MixList.Append( @ObjectB );
  43. end.
  44.  
  45.  
  46.  
  47.